function AnalyseNatureRetracted(n2)

ValueFolder2='/sps/isc/rneveu/EtudeIRM/Nature/ResultsRetracted/';
% load([ValueFolder2 'AnalyseAuthorsRetracted.mat']);
load([ValueFolder2 'AnalyseAuthorsRetractedArticle.mat']);
% ValueFileTemp3=['ResultsRetractedAuthors' num2str(n2) 'FirstLastBefore.mat'];
% ValueFileTemp3=['ResultsRetractedAuthors' num2str(n2) 'IntermediateBefore.mat'];
ValueFileTemp3=['ResultsRetractedAuthors' num2str(n2) 'ArticleBefore.mat'];

VecA=192:1:198;
VecA=[VecA 65];
Veca=224:1:230;
Veca=[Veca 97];
VecC=[199 67];
Vecc=[231 99];
VecE=200:203;
VecE=[VecE 69];
Vece=232:1:235;
Vece=[Vece 101];
VecI=204:207;
VecI=[VecI 73];
Veci=236:1:239;
Veci=[Veci 105];
Vecn=[241 110];
VecO=210:214;
VecO=[VecO 216 79];
Veco=242:1:246;
Veco=[Veco 248 111];
VecU=217:1:220;
VecU=[VecU 85];
Vecu=249:1:252;
Vecu=[Vecu 117];
VecY=[221 89];
Vecy=[253 121];
Vecs=[223 115];
VecSpecialCharacters=[{VecA} {Veca} {VecC} {Vecc} {VecE} {Vece} {VecI} {Veci} {Vecn} {VecO} {Veco} {VecU} {Vecu} {VecY} {Vecy} {Vecs}];

ValueTemp4=clock;
disp(['Start of the processing at ' num2str(ValueTemp4(1,4)) ':' num2str(ValueTemp4(1,5)) ':' num2str(ValueTemp4(1,6))]);
% ValueDate11=VecAuthorsRetractedFirstLast{n2,2};
% VecResultsRetracted=FilterAuthorsRetracted(n2,ValueDate11(1,1),ValueDate11(1,2),VecAuthorsRetractedFirstLast{n2,1},VecSpecialCharacters);
% ValueDate11=VecAuthorsRetractedIntermediate{n2,2};
% VecResultsRetracted=FilterAuthorsRetracted(n2,ValueDate11(1,1),ValueDate11(1,2),VecAuthorsRetractedIntermediate{n2,1},VecSpecialCharacters);
VecValueTemp=VecAuthorsRetracted{n2,1};
ValueDate11=VecAuthorsRetracted{n2,3};
ValueTemp=find(VecValueTemp==',');
ValueTemp=[0 ValueTemp size(VecValueTemp,2)+1];
VecResults=[12;24;36;48;60;120;Inf];
for n1=1:size(ValueTemp,2)-1
    ValueName=VecValueTemp(1,ValueTemp(1,n1)+1:ValueTemp(1,n1+1)-1);
    VecResultsTemp=FilterAuthorsRetracted(n2,ValueDate11(1,1),ValueDate11(1,2),ValueName,VecSpecialCharacters);
    VecResults=[VecResults VecResultsTemp(:,end)];
end
VecResultsRetracted=VecResults;
ValueTemp4=clock;
disp([num2str(n2) ' elements processed at ' num2str(ValueTemp4(1,4)) ':' num2str(ValueTemp4(1,5)) ':' num2str(ValueTemp4(1,6))]);
save([ValueFolder2 ValueFileTemp3],'VecResultsRetracted');